home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacWorld 2000 February
/
Macworld (2000-02).dmg
/
Cool Extras!
/
DarkSide of the Mac 5.0.6
/
SampleFaders
/
Invert.r
< prev
next >
Wrap
Text File
|
1994-08-18
|
2KB
|
135 lines
/*
DarkSide 3.0 - a 7.0 dependant, system clean expandable screen saver.
copyright © 1990, 1991, 1992 by Tom Dowdy
All rights reserved.
*/
#include "Fader.r"
#include "CodeFragmentTypes.r"
resource 'cfrg' (0) {
{
kPowerPC,
kFullLib,
kNoVersionNum,kNoVersionNum,
kDefaultStackSize, kNoAppSubFolder,
kIsDropIn,kOnDiskFlat,kZeroOffset,kWholeFork,
"Invert"
}
};
resource 'DITL' (5000, purgeable) {
{
{ 5, 5, 20, areaWidth-5 },
StaticText {enabled, "Invert © 1990-92 by Tom Dowdy"},
{ 25, 15, 25+30, areaWidth-15 },
Control {enabled, 5000+1},
{ 5, areaWidth-33, 5+32, areaWidth-2 },
Icon {enabled, 5000},
{0,0,0,0},
HelpItem { enabled, HMScanAppendhdlg {5000, 0} },
};
};
resource 'hdlg' (5000, purgeable) {
HelpMgrVersion,
0,
hmDefaultOptions,
0,
3, // hang left
// missing items
HMSkipItem {},
// items in the dialog
{
HMStringItem{
{0,0},
{0,0,0,0},
"Press here for additional information about this fader.",
"",
"",
"",
};
HMStringItem{
{6,6},
{0,0,0,0},
"Use this control to adjust the speed of the flashing.",
"",
"",
"Use this control to adjust the speed of the flashing.",
};
HMStringItem{
{0,0},
{0,0,0,0},
"Press here for additional information about this fader.",
"",
"",
"",
};
}
};
resource 'CNTL' (5000+1, purgeable) {
{0, 0, 0+30, areaWidth-20},
5,
visible,
9,
0,
16*200,
5000+1, // STR# ID of the names
"Speed of flashing: "
};
// strings filled in for the above control
resource 'SCTL' (5000+1) {
{
0, "Sloth-like";
1, "Molasses";
2, "Pokey";
3, "Slow";
4, "Medium";
5, "Fast";
6, "Speedy";
7, "Wizzy";
8, "Lightning";
9, "Blinding";
};
};
// resource to control the DITL above
resource 'DCTL' (5000) {
{
// item 1 about ID ignored ignored
1, 5000, 0, 0;
// item 2 res control ignored first short
2, 3, 0, 0;
// item 3 about ID ignored ignored
3, 5000, 0, 0;
};
};
// default values for our fader
resource 'DFLT' (5000) {
{5},
{};
};
resource 'HELP' (5000) {
"Invert © 1990-92 by Tom Dowdy\n\n"
"Invert is a very simple fader designed mostly to show you how to create "
"a fader for DarkSide. However, if you enjoy running it on your machine, "
"that's okay too."
};